BBS in a Box 7

home *** CD-ROM | disk | FTP | other *** search

/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / Pathlines XFCN v13 .cpt / PathLines XFCN v13 / cards.xml < prev next >

Wrap

Text File | 1991-06-02 | 30KB | 663 lines

card_8862.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>8862</id> <filler1>0</filler1> <bitmap>BMAP_7268.pbm</bitmap> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2690</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3288.css" /> <part> <id>2</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>137</left> <top>47</top> <right>389</right> <bottom>83</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> Geneva <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>Param1</name> <script>on ReturnInFieldput the selectedChunk into SavedSelectionsend mouseUp to card button "Try It"select SavedSelectionend ReturnInFieldon EnterInFieldput the selectedChunk into SavedSelectionsend mouseUp to card button "Try It"select SavedSelectionend EnterInField</script> </part> <part> <id>3</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>394</left> <top>5</top> <right>411</right> <bottom>235</bottom> </rect> <style>opaque</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> Chicago <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script></script> </part> <part> <id>4</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>137</left> <top>105</top> <right>265</right> <bottom>123</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> Geneva <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>Param2</name> <script>on ReturnInFieldsend mouseUp to card button "Try It"select text of meend ReturnInFieldon EnterInFieldsend mouseUp to card button "Try It"select text of meend EnterInField</script> </part> <part> <id>5</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>264</left> <top>105</top> <right>281</right> <bottom>123</bottom> </rect> <style>rectangle</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>18151</icon> <textAlign>center</textAlign> Chicago <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseDownget PopUpMenu("Volume[] Disk[] Drive[] -[] Directory[] folder[] -[] File[] Leaf[] -[] Parent[] -[] Path[] -[] Lines[]",8,the right of me)if item 1 of it is not 0thenput item 2 of it into card field "Param2"send MouseUp to card button "Try It"end ifend mouseDown</script> </part> <part> <id>6</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>314</left> <top>102</top> <right>389</right> <bottom>124</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> Chicago <textSize>12</textSize> <textStyle>plain</textStyle> <name>Try It</name> <script>on mouseUpput empty into card field "TheResult"Get card field "Param2"if it is emptythen get Pathlines(card field "Param1")else get Pathlines(card field "Param1", card field "Param2")if it is emptythen put "(The result is empty)" into card field "TheResult"else put it into card field "TheResult"end mouseUp</script> </part> <part> <id>7</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>137</left> <top>145</top> <right>389</right> <bottom>231</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <true /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> Geneva <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>TheResult</name> <script></script> </part> <content> <layer>background</layer> <id>22</id> <text> Now You Try It </text> </content> <content> <layer>background</layer> <id>23</id> <text></text> </content> <content> <layer>card</layer> <id>7</id> <text>(The result is empty)</text> </content> <name></name> <script>on openCardrepeat with FldNum = 1 to the number of card fieldsput empty into card field FldNumend repeatpass openCardend openCard</script> </card> card_8529.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>8529</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2690</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3288.css" /> <content> <layer>background</layer> <id>23</id> <text>Secret Feature ! ! !Ok, so it's not really secret if I tell everyone openly about it, but there is a feature in Pathlines that has nothing directly to do with file pathnames and I wanted to label it as something different.If the second parameter given to Pathlines is a single character, then Pathlines will scan the first parameter and replace all occurences of the given character with RETURN characters. For example, Get Pathlines("abc=def=hgi","=") will return abc def hgilikewise: Get Pathlines("++A???A@@@@","A")will return ++ ??? @@@@In fact, this is how Pathlines performs both the "lines" and the "path" functions. For the former, it scans the first parameter for colons and replaces them with RETURN characters, thus separating the pathname components into separate lines. For the latter, it scans for RETURN characters and replaces them with colons.Length of Pathnames:Although most pathnames are fairly short (usually less than 100 characters), Pathlines can handle up to 32,000 characters. This is not necessary for pathnames, but might be useful if you use Pathlines for other kinds of data.Compatibility:Pathlines has only been tested With HyperCard 2.1, running under System 7.0, on a Macintosh 2. However it should work with all versions of HyperCard, and all versions of the system software that HyperCard runs under. - end of text -</text> </content> <content> <layer>background</layer> <id>22</id> <text> Special Notes </text> </content> <name></name> <script></script> </card> card_6179.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>6179</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2690</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3288.css" /> <content> <layer>background</layer> <id>23</id> <text>If the first parameter given to Pathlines is a pathname, and the second parameter is "directory" or "folder", then Pathlines will return only the directory portion of the pathname (it returns the pathname with the file name chopped off). For example, Get Pathlines("MyDisk:MyFolder:MyFile","folder") will return "MyDisk:MyFolder:"This is useful whenever you need to get back to a specific folder; perhaps to save something there, or to find something there. For example, HyperCard's Home stack has cards which list directories in which HyperCard will look for stacks, applications, and documents. - end of text -</text> </content> <content> <layer>background</layer> <id>22</id> <text> Get the Directory Path </text> </content> <name></name> <script></script> </card> card_6751.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>6751</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2690</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3288.css" /> <content> <layer>background</layer> <id>23</id> <text>If the first parameter given to Pathlines is a pathname, and the second parameter is "parent", then Pathlines will return the directory that is the parent of the last component of the pathname. For example, Get Pathlines("MyDisk:MyFolder:MyDisk","parent") will return "MyDisk:MyFolder:"Likewise, Get Pathlines("MyDisk:Folder1:Folder2:","parent") will return "MyDisk:Folder1:" - end of text -</text> </content> <content> <layer>background</layer> <id>22</id> <text> Get the Parent Directory </text> </content> <name></name> <script></script> </card> card_5901.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>5901</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2690</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3288.css" /> <content> <layer>background</layer> <id>22</id> <text> Get the Volume Name </text> </content> <content> <layer>background</layer> <id>23</id> <text>If the first parameter given to Pathlines is a pathname, and the second parameter is "volume" or "disk" or "drive", then Pathlines will return only the volume name portion of the pathname. For example, Get Pathlines("MyDisk:MyFolder:MyFile","volume") will return "MyDisk" - end of text -</text> </content> <name></name> <script></script> </card> card_6629.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>6629</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2690</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3288.css" /> <content> <layer>background</layer> <id>23</id> <text>If the first parameter given to Pathlines is a pathname, and the second parameter is "file" or "leaf", then Pathlines will return only the file name portion of the pathname. For example, Get Pathlines("MyDisk:MyFolder:MyFile","file") will return "MyFile" - end of text -</text> </content> <content> <layer>background</layer> <id>22</id> <text> Get the File Name </text> </content> <name></name> <script></script> </card> card_6960.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>6960</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2690</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3288.css" /> <content> <layer>background</layer> <id>23</id> <text>If the first parameter given to Pathlines has multiple lines, and the second parameter is "path", then Pathlines will convert the first parameter into a pathname and return this as the result. For example, if the field "path parts" contains: MyDisk MyFolder MyFile then Get Pathlines(field "path parts","path")will return "MyDisk:MyFolder:MyFile" - end of text -</text> </content> <content> <layer>background</layer> <id>22</id> <text> Convert Lines to a Pathname </text> </content> <name></name> <script></script> </card> card_5697.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>5697</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2690</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3288.css" /> <content> <layer>background</layer> <id>22</id> <text> Convert a Pathname to Lines </text> </content> <content> <layer>background</layer> <id>23</id> <text>If the first parameter given to Pathlines is a pathname, and the second parameter is "lines" (or if there is no second parameter), then Pathlines will disassemble the pathname, place each of its components on a separate line, and return this as the result. For example, Get Pathlines("MyDisk:MyFolder:MyFile")or Get Pathlines("MyDisk:MyFolder:MyFile","lines")will return MyDisk MyFolder MyFileNow it is easy to deal with the components of the pathname. For example:‚Ä¢ To get the disk name, put the first line of it‚Ä¢ To get the folder path, delete the last line of it put it‚Ä¢ To get the file name, put the last line of it‚Ä¢ To find out how many folder levels deep the file is, put the number of lines in it - 1 - end of text -</text> </content> <name></name> <script></script> </card> card_5172.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>5172</id> <filler1>0</filler1> <bitmap>BMAP_4506.pbm</bitmap> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2690</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3288.css" /> <part> <id>2</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>184</left> <top>132</top> <right>335</right> <bottom>154</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> Chicago <textSize>12</textSize> <textStyle>plain</textStyle> <name>Install Pathlines...</name> <script>on mouseUpput empty into cd fld "InstallationResult"answer file "Install Pathlines into which stack?" of type "STAK"put it into DestStackif DestStack is empty then exit MouseUpRInstall "XFCN","Pathlines",DestStackput the result into RInstallResultif RInstallResult is emptythenget "Pathlines was successfully installed"put "into" && pathlines(DestStack, "file") into line 2 of itput it into cd fld "InstallationResult"HappyBeepelseget "Sorry, Pathlines could not be installed"put "into" && pathlines(DestStack, "file") into line 2 of itput it into cd fld "InstallationResult"SadBeepend ifend mouseUp</script> </part> <part> <id>3</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>123</left> <top>175</top> <right>392</right> <bottom>229</bottom> </rect> <style>opaque</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> Geneva <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name>InstallationResult</name> <script></script> </part> <content> <layer>background</layer> <id>22</id> <text> Installing the Pathlines XFCN </text> </content> <content> <layer>background</layer> <id>23</id> <text>Press the button below to have the Pathlines XFCN installed into the stack of your choice.</text> </content> <content> <layer>card</layer> <id>3</id> <text>Pathlines was successfully installedinto PopUp XFCN v32 copy</text> </content> <name></name> <script>on OpenCardput empty into cd fld "InstallationResult"pass OpenCardend OpenCard</script> </card> card_5474.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>5474</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2690</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3288.css" /> <content> <layer>background</layer> <id>22</id> <text> What is a Pathname? </text> </content> <content> <layer>background</layer> <id>23</id> <text>If you had to tell a person where to find a file on your disk, you might say something like "Open the disk called 'MyDisk', and in that disk open the folder called 'Personal', then in that folder open the folder called 'Addresses', and in that folder is the file called 'Friends'".What you have done is to describe the path that someone must follow to get from the disk to the desired file.The way you tell a computer what path to take is to join all the names together with colons, like this MyDisk:Personal:Addresses:FriendsThis is is called the pathname of the file "Friends". It is sort of like the "full legal name" for a human.You can also have a partial pathname, for example MyDisk:Personal:Addresses:which would be useful when you want to tell the computer what folder to use for, say, saving all your incoming electronic mail. - end of text -</text> </content> <name></name> <script></script> </card> card_4754.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>4754</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2690</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3288.css" /> <content> <layer>background</layer> <id>23</id> <text>Your feedback is welcomed. Bill logs onto CompuServe (user 70347, 2157), Genie (user XTA02570) and America Online (user Appleguy) several times a year. He also logs onto Apple Computer's corporate AppleLink service weekly as FERNANDEZ1. - end of text -</text> </content> <content> <layer>background</layer> <id>22</id> <text> Your Feedback </text> </content> <name></name> <script></script> </card> card_4103.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>4103</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2690</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3288.css" /> <content> <layer>background</layer> <id>23</id> <text>Copyright Notice: The Pathlines XFCN and this demonstration stack were written by Bill Fernandez and in technical terms are ‚Äú¬© Bill Fernandez 1991, all rights reserved.‚Äù At the present time, no restriction is placed upon the distribution of these items, and permission is granted for any non-commercial use.This stack also contains and uses: ‚Ä¢ The RInstall XFCN from the Dartmouth XCMD collection version-3.4, by Kevin Calhoun, ¬©1989 the Trustees of Dartmouth College.‚Ä¢ The PopupMenu XFCN v32, by Bill Fernandez, ¬© 1989 Apple Computer.Warranty Notice: The Pathlines XFCN and this demonstration stack are made available as a public service, and no warranty, either expressed or implied, is made. - end of text -</text> </content> <content> <layer>background</layer> <id>22</id> <text> Legal Notices </text> </content> <name></name> <script></script> </card> card_3992.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>3992</id> <filler1>0</filler1> <bitmap>BMAP_7553.pbm</bitmap> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2690</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3288.css" /> <content> <layer>background</layer> <id>22</id> <text> Introduction </text> </content> <content> <layer>background</layer> <id>23</id> <text>This stack contains and explains the ‚ÄúPathlines‚Äù XFCN, which was designed to make life easier when dealing with file pathnames.Pathlines can:‚Ä¢ Disassemble a pathname and place each of its components on a separate line.‚Ä¢ Reverse the above; assembling a pathname from components given on separate lines.‚Ä¢ Return just the portion of a pathname that pertains to the volume (drive), directory (folder), file, or parent directory.Release History:‚Ä¢ 1-JUNE-91, version-13, first public release. - end of text -</text> </content> <name></name> <script></script> </card> card_3016.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>3016</id> <filler1>0</filler1> <bitmap>BMAP_4937.pbm</bitmap> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2690</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3288.css" /> <part> <id>1</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>116</left> <top>190</top> <right>411</right> <bottom>205</bottom> </rect> <style>opaque</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> Geneva <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script></script> </part> <content> <layer>card</layer> <id>1</id> <text>version-13 1-JUNE-91</text> </content> <content> <layer>background</layer> <id>23</id> <text></text> </content> <name></name> <script></script> </card>